home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbmap.dxr / 00017_Button Code.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  961 b   |  24 lines
  1. global gDBPictObjList
  2.  
  3. on InitButtons EnableScroll
  4.   MyObj = getaProp(gDBPictObjList, GetObjProp())
  5.   ButtonList = GetButtonList(MyObj)
  6.   SpList = GetSpriteList(MyObj)
  7.   cbs = getaProp(SpList, #closeBox)
  8.   mmbs = getaProp(SpList, #MaxMinBox)
  9.   PrintBS = getaProp(SpList, #PrintButton)
  10.   SaveBS = getaProp(SpList, #SaveButton)
  11.   addProp(ButtonList, cbs, new(script("close box"), "close box", "global", cbs, the loc of sprite cbs))
  12.   addProp(ButtonList, PrintBS, new(script("print icon"), "print", "internal", PrintBS, the loc of sprite PrintBS))
  13.   addProp(ButtonList, SaveBS, new(script("save icon"), "save", "internal", SaveBS, the loc of sprite SaveBS))
  14.   repeat with rc in ButtonList
  15.     Inscope(rc)
  16.   end repeat
  17.   SetButtonList(MyObj, ButtonList)
  18.   hand = member("point hand", "internal")
  19.   handMask = member("point hand mask", "internal")
  20.   repeat with rc in [cbs, mmbs, PrintBS, SaveBS]
  21.     set the cursor of sprite rc to [hand, handMask]
  22.   end repeat
  23. end
  24.